#! /bin/bash

total=$(cat ../dados/autores | wc -l )
#> ../dados/vertices_relacionados
#while read autor
#do
#	autorID=$(grep -iw -m 1 "$autor" ../dados/dicionario | cut -d " " -f1)
#
#	relacionados=$(grep -iw  -m 1 "Relacionados(${autorID})" ../dados/relacionados | cut -d":" -f2)
#
#	degree=$(( $( echo $relacionados | wc -w) -1 ))
#
#	coautores_comuns=0
#
#	for elemento in $relacionados
#	do
#		if [ $elemento -gt $autorID ]
#		then
#			
#			for x in  $( grep -iw "Relacionados(${elemento})" ../dados/relacionados | cut -d":" -f2)
#			do
#				if  [ $elemento -ne $x ] && [ $x -ne $autorID ]
#				then
##					echo "-> $x"
##					echo "$autorID ---> $x -> $element"
##					echo $(grep -iw "Relacionados(${elemento})" ../dados/relacionados | cut -d":" -f2)	
##					echo "contou 1"
#					
#					for volta in $relacionados
#					do	
#						if [ $volta -ne $elemento ] && [ $volta -ne $autorID ] && [ $volta -eq $x ]
#						then
#							coautores_comuns=$((coautores_comuns + 1))
##							echo "$elemento --> $x"
#						fi
#					done
#				fi
##
#		
#			done
#			#Remove as duplicatas de cada aresta
##			coautores_comuns=$((coautores_comuns / 2))
#			echo "$coautores_comuns $autorID $elemento" >> ../dados/vertices_relacionados
#			coautores_comuns=0
#		fi
#	done
#
#done < ../dados/autores


#limpa o arquivo temporario
> ../dados/grafo_remocao.net

#tira os X/100 maiores
total=$(cat ../dados/vertices_relacionados | wc -l)
qtd=$(echo "$total * $1  / 100 " | bc)

echo $qtd

cat ../dados/vertices_relacionados | sort -rn +0 -1 | cut -d " " -f2,3  > ../dados/grafo2_removidos

#copia o grafo.net para poder remover as arestas
cp ../dados/cabecalho_pajek ../dados/grafo_remocao.net


#remove as $qtd primeiras, ja que esta ordenado
precisa=$((total - qtd ))

echo $precisa

tail -n $precisa  ../dados/grafo2_removidos >> ../dados/grafo_remocao.net

#cat ../dados/grafo2_removidos >>../dados/grafo_remocao.net

echo "Quando terminar de gerar o componentes_remocao tecle Enter"
read entra

#Encontrando o numero de componentes conectados  de cada tamanho
cat ../dados/componentes_remocao.clu | sed "1d"  | sort -n | uniq -c | tr -s " " |  cut -d " " -f 2 | sort -n | uniq -c  | awk '{print $2 " " $1}' > ../dados/componentes_remocao


#informa qual e o tamanho do maior componente conectado
echo "O tamanho do maior componente conectado apos remover as  $qtd  arestas mais relacionadas: $(cat ../dados/componentes_remocao | cut -d " " -f1 | sort -nr | head -n 1)"

